home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 097 - EBU.dsk / TOOLS / SLOT.SCANNER.bas < prev    next >
BASIC Source File  |  2019-02-17  |  413b  |  11 lines
  1. 100  REM *Slot Scanner  *
  2. 110  FOR SLOT = 1 TO 7
  3. 120 :ADR = 49152 +(SLOT *256)
  4. 130 : IF  PEEK(ADR +1) < >32  THEN 190
  5. 140 : IF  PEEK(ADR +3) < >0  THEN 190
  6. 150 : IF  PEEK(ADR +5) < >3  THEN 190
  7. 160 : IF  PEEK(ADR +7) < >0  THEN 190
  8. 170 :SMART(0) = SMART(0) +1: REM count Smartports found
  9. 180 : PRINT "Smartport found in slot ";SLOT
  10. 190  NEXT : PRINT 
  11. 200  IF SMART(0) = 0  THEN  PRINT "No Smartports found.": END